home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 65
/
065.d81
/
ascii input
< prev
next >
Wrap
Text File
|
2022-08-26
|
402b
|
3 lines
50000 q9$="":u9=53280:poke198,0
50010 geta$
50020 poke646,rnd(1)*15+1:print"{CBM-@}";:ifa$=""then50010
50030 ifa$=chr$(13)thenprint" ":return
50040 if(a$=chr$(20)andlen(q9$))thenq9$=left$(q9$,len(q9$)-1):goto50080
50050 iflen(q9$)>=l9%thent9%=peek(u9):pokeu9,1:pokeu9,t9%:goto50010
50060 ifa$<" "or(a$>chr$(127)anda$<chr$(160))ora$=chr$(34)then50010
50070 q9$=q9$+a$
50080 print""a$;:goto50010
ready.